home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / SPIDER.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.3 KB  |  148 lines
  1. 4 C1=1:C2=2:C3=3:C4=4:C9=9:CQ=25:FD=104:POKE53281,12:POKE53280,12:GOSUB552
  2. 10 PRINT"WOULD YOU LIKE INSTRUCTIONS?"
  3. 12 GETR$:IFR$=""THEN12
  4. 14 IFR$<>"Y"THEN18
  5. 16 GOSUB498
  6. 18 ::DN$="[151][169][169][169]":BC$="   ":DIMD1$(53)
  7. 32 DIMCL(9,54),UD(9,54),TP(9),CP(9),D2(104),R2(053),S2(053),H2(053)
  8. 34 SL$=""
  9. 36 SC$="                                       "
  10. 38 SX$="":X=RND(-TI)
  11. 42 GOSUB224:GOSUB270:GOSUB394:GOSUB426:PRINT"[147]";:GOSUB290
  12. 52 MS=.:GOSUB452:IFMS=1THEN62
  13. 58 GOSUB84:GOSUB100
  14. 62 Z=CQ:GOSUB494:PRINTSC$;:GOSUB494:GOSUB76:GOSUB300:GOSUB382:GOSUB436:GOTO52
  15. 76 ::Z=CQ:GOSUB494:PRINT"CARDS IN STOCK:";CR;"  OFF:";FF$;:RETURN
  16. 84 ::Z=CQ:GOSUB494:PRINTSC$;:GOSUB494
  17. 88 PRINT"[151]M[146]OVE, T[146]EN MORE OR Q[146]UIT?";:RETURN
  18. 90 GETR$:IFR$=""THEN486
  19. 92 IFR$="Q"THENMS=C1:GOTO110
  20. 94 IFR$="M"THENMS=C1:GOTO138
  21. 96 IFR$="T"THENMS=C1:GOTO130
  22. 98 GOTO90
  23. 100 GETR$:IFR$=""THEN100
  24. 102 IFR$="Q"THEN110
  25. 104 IFR$="M"THEN138
  26. 106 IFR$="T"THEN130
  27. 108 GOTO100
  28. 110 Z=CQ:GOSUB494:PRINT"ARE YOU SURE?             ";
  29. 112 GETR$:IFR$=""THEN112
  30. 114 IFR$="Y"THEN120
  31. 116 Z=CQ:GOSUB494:GOTO88
  32. 120 Z=CQ:GOSUB494:PRINT"PLAY AGAIN?               ";
  33. 122 GETR$:IFR$=""THEN122
  34. 124 IFR$="Y"THENPRINT"[147]";:RUN
  35. 126 STOP:GOTO126
  36. 130 ::IFCR>.THEN136
  37. 134 Z=CQ:GOSUB494:PRINT"YOU'RE OUT                   ";:GOSUB496:RETURN
  38. 136 GOSUB426:RETURN
  39. 138 ::Z=CQ:GOSUB494:PRINT"ENTER FROM COL:          ";
  40. 144 GETR$:IFR$=""THEN144
  41. 146 IFR$<"A"ORR$>"J"THEN144
  42. 148 Z=CQ:GOSUB494:NC=.:PRINT"ENTER # OF CARDS,THEN TO COL ";
  43. 152 GETS$:IFS$=""THEN152
  44. 154 IFS$>"@"ANDS$<"K"THENNC=C1:T$=S$:GOTO172
  45. 156 IFS$<"0"ORS$>"9"THEN152
  46. 158 PRINTS$;:NC=VAL(S$)
  47. 162 GETS$:IFS$=""THEN162
  48. 164 IFS$<"0"ORS$>"9"THENT$=S$:GOTO172
  49. 166 NC=NC*10+VAL(S$):Z=CQ:GOSUB494:PRINT"ENTER TO COL:                    ";
  50. 170 GETT$:IFT$=""THEN170
  51. 172 IFT$<"A"ORT$>"J"THEN170
  52. 174 IFR$=T$THEN222
  53. 176 FR=ASC(R$)-65:TU=ASC(T$)-65:CO=FR:GOSUB340:IFSL>=NCTHEN186
  54. 182 Z=CQ:GOSUB494:PRINT"TOO MANY!                            ";:GOSUB496:GOTO222
  55. 186 ::IFTP(TU)=.THEN204
  56. 190 CN=TP(CO)-NC:IFCN<.THENSTOP
  57. 192 GOSUB370:SF=SU:RF=RN:CO=TU:CN=TP(CO)-C1:IFCN<.THENSTOP
  58. 196 GOSUB370:IFRN=RF+C1THEN204
  59. 200 Z=CQ:GOSUB494:PRINT"YOU CAN'T MOVE THERE                ";:GOSUB496:GOTO222
  60. 204 ::TP(FR)=TP(FR)-NC:FORI=C1TONC:GOSUB590:CL(TU,TP(TU))=CL(FR,TP(FR)+I-C1)
  61. 214 CL(FR,TP(FR)+I-C1)=.:TP(TU)=TP(TU)+C1:NEXT:DS(FR)=1:DS(TU)=1
  62. 222 RETURN
  63. 224 ::PRINT"MAKING A DECK...":CN=.:FORI=C1TOC4:IFI=C1THENS$="[193]":CC$="[144]"
  64. 234 IFI=C2THENS$="[211]":CC$=""
  65. 236 IFI=C3THENS$="[218]":CC$=""
  66. 238 IFI=C4THENS$="[216]":CC$="[144]"
  67. 240 SH=ASC(S$):HR=ASC(CC$):FORJ=C1TO13:R$=RIGHT$(STR$(J),2):IFJ=C1THENR$=" A"
  68. 248 IFJ=10THENR$="10"
  69. 250 IFJ=11THENR$=" J"
  70. 252 IFJ=12THENR$=" Q"
  71. 254 IFJ=13THENR$=" K"
  72. 258 CN=CN+C1:D1$(CN)=CC$+R$+S$
  73. 262 R2(CN)=J:S2(CN)=SH:H2(CN)=HR:D2(CN)=CN:D2(CN+52)=CN:NEXTJ,I:D1$(.)=BC$:RETURN
  74. 270 ::PRINT"SHUFFLING...";:FORJ=C1TOC2:PRINT".";:FORI=104TOC1STEP-C1:X=INT(RND(C1)*FD+C1)
  75. 282 CD=D2(X):D2(X)=D2(I):D2(I)=CD:NEXTI,J:PRINT:RETURN
  76. 290 ::Z=24:GOSUB494:PRINT"[151]";
  77. 294 PRINT"[169]A[223][146] [169]B[223][146] [169]C[223][146] [169]D[223][146] [169]E[223][146] [169]F[223][146] [169]G[223][146] [169]H[223][146] [169]I[223][146] [169]J[223][146]";
  78. 298 RETURN
  79. 300 ::FORCO=.TOC9:GOSUB340:IFSL=13THENGOSUB312
  80. 308 NEXT:RETURN
  81. 312 ::Z=CQ:GOSUB494:PRINTSC$;:GOSUB494:PRINT"THAT'S A COMPLETE LEG";:DS(CO)=1
  82. 318 CS=CO:MS=2:GOSUB382:GOSUB456:CO=CS:I=TP(CO)-C1:J=I-12:CN=I:GOSUB370:FORI=C1TO13
  83. 326 TP(CO)=TP(CO)-C1:CL(CO,TP(CO))=.:NEXT:DS(CO)=1:FF$=FF$+HU$+CHR$(SU):RETURN:RETURN
  84. 340 ::SL=C1:I=TP(CO)-C1:IFI<.THENRETURN
  85. 346 CN=I:GOSUB370:S1=SU:R1=RN:IFI=.THENRETURN
  86. 352 FORCN=I-C1TO.STEP-C1:IFUD(CO,CN)=C1THEN368
  87. 356 GOSUB370:IFSU<>S1THEN368
  88. 360 IFRN<>R1+C1THEN368
  89. 362 R1=R1+C1:SL=SL+C1:NEXT
  90. 368 RETURN
  91. 370 ::CH=CL(CO,CN):RN=R2(CH):SU=S2(CH):HU$=CHR$(H2(CH)):RETURN
  92. 382 ::FORCO=.TOC9:IFTP(CO)=.THEN390
  93. 388 UD(CO,TP(CO)-C1)=.
  94. 390 NEXT:RETURN
  95. 394 ::PRINT"DEALING...":CR=104:FORI=.TOC3:FORCO=.TOC9:GOSUB416:UD(CO,CN)=C1:NEXTCO,I:FORCO=.TOC3
  96. 410 GOSUB416:UD(CO,CN)=C1:NEXTCO:RETURN
  97. 416 ::CN=TP(CO):TP(CO)=CN+C1:CL(CO,CN)=D2(CR):CR=CR-C1:DS(CO)=1:RETURN
  98. 426 ::FORCO=.TOC9:GOSUB416:NEXT:RETURN
  99. 436 ::IFCR>.THEN450
  100. 440 FORI=.TOC9:IFTP(I)>.THEN450
  101. 444 NEXT:Z=CQ:GOSUB494:PRINT" OK, YOU WIN.                ";:GOSUB496:GOSUB496:FORT=1TO4444:NEXT:GOTO120
  102. 450 RETURN
  103. 452 ::GOSUB84
  104. 456 FORH=.TOC9:CP(H)=TP(H)-C1:NEXT:FORCO=.TOC9:IFDS(CO)=1THEN466
  105. 462 NEXT:RETURN
  106. 466 ::IN$=RIGHT$(SX$,4*CO):TC=CP(CO):Z=1:GOSUB494:FORW=22TO.STEP-C1:NX=TC-W
  107. 478 IFNX<.THENPRINTIN$+BC$:GOTO484
  108. 480 IFUD(CO,NX)=C1THENPRINTIN$+DN$:GOTO484
  109. 482 PRINTIN$+D1$(CL(CO,NX))
  110. 484 IFMS=.THEN90
  111. 486 NEXT:DS(CO)=.:GOTO462
  112. 494 PRINTLEFT$(SL$,Z);:RETURN
  113. 496 FORT=C1TO0111:NEXT:RETURN
  114. 498 ::PRINT"[147]"+CHR$(14);:PRINT"[211][208][201][196][197][210] IS A SOLITAIRE USING 2 PACKS."
  115. 504 PRINT"[212]HE TOP CARD OF A PILE MAY BE MOVED,"
  116. 506 PRINT"TOGETHER WITH ALL BELOW IT WHICH FOLLOW"
  117. 508 PRINT"IT IN SUIT AND ASCEND IN SEQUENCE."
  118. 510 PRINT"[193] SEQUENCE MAY BE BROKEN AND SOME CARDS":PRINT"LEFT BEHIND."
  119. 514 PRINT"[193] MOVEABLE GROUP OF CARDS MAY BE PLACE"
  120. 516 PRINT"EITHER IN A SPACE OR ON A CARD NEXT"
  121. 518 PRINT"HIGHER IN RANK, REGARDLESS OF SUIT."
  122. 520 PRINT"[215]HEN ALL FACE-UP CARDS IN A PILE ARE"
  123. 522 PRINT"REMOVED, THE FACE-DOWN CARD IS TURNED":PRINT"AND BECOMES AVAILABLE."
  124. 526 PRINT"[215]HEN NO FURTHER MOVES ARE DESIRED OR"
  125. 528 PRINT"POSSIBLE, ANOTHER ROW OF TEN FACE-UP"
  126. 530 PRINT"CARDS IS DEALT UNTIL THE STOCK IS GONE.":PRINT""
  127. 534 PRINT"[207][194][202][197][195][212][201][214][197]:  [212]O ASSEMBLE THIRTEEN CARDS"
  128. 536 PRINT"IN A SUIT IN ASCENDING SEQUENCE ([193]-[203])."
  129. 538 PRINT"[215]HENEVER A COMPLETE SUIT IS ASSEMBLED":PRINT"IT IS REMOVED AND DISCARDED."
  130. 542 PRINT"[212]HE GAME IS WON WHEN ALL EIGHT ARE":PRINT"TAKEN OFF."
  131. 546 PRINT" HIT ANY KEY TO CONTINUE[146]"
  132. 548 GETR$:IFR$=""THEN548
  133. 550 PRINT"[147]"+CHR$(142);:RETURN
  134. 552 ::PRINT"[144][147]";CHR$(142);:PRINT"       [146]    [146]    [146]   [223][146]    [146]   [223][146]      [146]"
  135. 558 PRINT"     [146]    [146]  [146]   [146]   [146]  [146]  [146]    [146]  [146]      [146]"
  136. 560 PRINT"       [146]    [146]   [146]   [146]  [146]   [146]    [146][169]      [146]"
  137. 562 PRINT"       [146]  [146]     [146]   [146]  [146]  [146]    [146] [223][146]"
  138. 564 PRINT"       [146]  [146]      [146]   [146][169]    [146]  [146]  [146]      [146]"
  139. 566 PRINT"                    BY G.A.BECK":PRINT"            [201][213]":PRINT"           [202][166][166][203]"
  140. 572 PRINT"           [213][166][166][201]":PRINT"            [203][202]"
  141. 576 PRINT"    [211]   [144][216]   [218]   [144][193]   [218]   [144][193]   [211]   [144][216]"
  142. 578 PRINT"     P U B L I C     D O M A I N      "
  143. 580 PRINT"    [211]   [144][216]   [218]   [144][193]   [218]   [144][193]   [211]   [144][216]":RETURN:SR=54272
  144. 586 FORSI=SRTOSR+24:POKESI,.:NEXT:RETURN
  145. 590 SR=54272:FORTT=SRTOSR+24:POKETT,.:NEXT:POKESR,15:POKESR+C1,C2:POKESR+C3,.:POKESR+6,.
  146. 598 POKESR+5,6:POKESR+22,.:POKESR+23,.:POKESR+24,15:POKESR+C4,67:FORTT=C1TOCQ:NEXT:POKESR+C4,.
  147. 608 RETURN
  148.